home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 27.zip
/
BS1 part 27
/
ExcellenceV3.1_d1.adf
/
prologue
< prev
next >
Wrap
Text File
|
1993-06-19
|
2KB
|
82 lines
%!PS-Adobe-
%%Creator: excellence! (c) 1987,88, Micro-Systems Software
%%EndComments
100 dict begin
/AmigaCoding [
45 /hyphen 152 /dotlessi /grave /acute /circumflex /tilde /dieresis
/ring /cedilla /space 164 /currency 166 /bar 168 /dieresis /copyright
/ordfeminine 172 /logicalnot /.notdef /registered /macron /ring
/.notdef /.notdef /dagger /.notdef /.notdef 183 /bullet 185 /.notdef
/ordmasculine 188 /.notdef /.notdef /.notdef 192 /Agrave /Aacute
/Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla /Egrave /Eacute
/Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis /.notdef
/Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /.notdef
/Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /.notdef /.notdef
/germandbls /agrave /aacute /acircumflex /atilde /adieresis /aring
/ae /ccedilla /egrave /eacute /ecircumflex /edieresis /igrave /iacute
/icircumflex /idieresis /.notdef /ntilde /ograve /oacute /ocircumflex
/otilde /odieresis /.notdef /oslash /ugrave /uacute /ucircumflex
/udieresis /.notdef /.notdef /ydieresis
] def
/recode {
findfont begin
currentdict dup length dict begin {
1 index /FID ne {def} {pop pop} ifelse
} forall
/FontName exch def dup length 0 ne {
/Encoding Encoding 256 array copy def
0 exch {
dup type /nametype eq {
Encoding 2 index 2 index put
pop 1 add
}{
exch pop
} ifelse
} forall
} if pop
currentdict dup end end
/FontName get exch definefont pop
} bind def
/chgfont2 {
cvn AmigaCoding /AmigaFont 3 2 roll
recode /AmigaFont findfont exch
makefont
} bind def
/MyDict 20 dict def
/fontstr 50 string def
/fontnam 20 string def
/fontnl 0 def
/chgfont {
dup /fontnam exch def
length /fontnl exch def
dup 0 get 10 mul cvi
fontnam fontstr copy pop
fontstr fontnl 20 getinterval
cvs pop
MyDict fontstr known {
pop
MyDict fontstr get setfont
}{
fontnam chgfont2
MyDict begin
dup fontstr exch def
end setfont
} ifelse
} bind def
/underline {
currentpoint currentfont dup
/FontMatrix get /yscale exch 3 get def
/FontInfo get dup
/UnderlineThickness get yscale mul setlinewidth
/uline exch /UnderlinePosition get yscale mul def
4 2 roll uline add 4 2 roll uline add moveto lineto stroke
} bind def
%%EndProlog